<%Option explicit%> <% '******************************************************* ' Login logic for customer Service Center ' Version 6.50 Sept 1, 2004 '******************************************************* initializesystem dim sAction, strPassword, newuser dim UsePassword, msg UsePassword="Yes" ' set to "Yes" for pasword instead of e-mail if ucase(getconfig("xpassword"))<>"YES" Then UsePassword="No" ' set to "Yes" for pasword instead of e-mail end if SetSess "CurrentUrl","shopcustadminlogin.asp" SetSess "FollowonURL","shopcustadminlogin.asp" Serror=GetSess("Loginerror") ' possible mesage from login SetSess "Loginerror","" ' error from shop login NewUser=Request("New") if Newuser<>"" then ResetCustomerSessiondata Setsess "CustomerLogincid","" 'VP-ASP 6.50 - fix bug with not being logged out properly Setsess "CustomerID","" 'VP-ASP 6.08 redirect back to login page after logout responseredirect "shopcustadminlogin.asp" end if If GetSess("Customerid")<>"" and Getsess("Lastname") <>"" then If getsess("Customerlogincid")="" then SetSess "CustomerLoginCID",Getsess("Customerid") msg=getlang("langLoginSuccessful") else msg=getlang("langCustAlreadyloggedIn") end if responseredirect "shopcustadmin.asp?msg=" & server.urlencode(msg) end if AddForm ' Sub AddForm() dim caption, mylink ShopPageHeader if getconfig("xbreadcrumbs") = "Yes" then response.write "" end if SetSess "Customerlogincid","" if sError<> "" then shopwriteerror SError Serror="" end if 'shopwriteheader getlang("langCustAdminLogin") Shoploginform ShopPageTrailer end sub %>